home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / zoetek / source / shckclck.dir / 00123_inc script.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  553 b   |  24 lines
  1. global mouseEnabled, mouseVal, mouseCycle
  2.  
  3. on mouseDown
  4.   set mouseEnabled to 1
  5.   set mouseCycle to 0
  6.   set mouseVal to [#hour: 0, #minute: 0, #second: 0]
  7.   set x to the clickOn
  8.   if (x = 1) or (x = 4) or (x = 7) then
  9.     set val to 10 + (2 * (x = 1) * (the frameLabel = "alarm"))
  10.   else
  11.     set val to 1
  12.   end if
  13.   set val to val - (2 * val * (the mouseV > 20))
  14.   if x < 3 then
  15.     set the hour of mouseVal to val
  16.   else
  17.     if x < 6 then
  18.       set the minute of mouseVal to val
  19.     else
  20.       set the second of mouseVal to val
  21.     end if
  22.   end if
  23. end
  24.